Private Sub Workbook_Open()
Dim MyDate As Date, Abu_Ahmed As Integer
MyDate = #1/2/2016#
Abu_Ahmed = 2
If Date < MyDate Then
MsgBox "    "
Application.Quit
End If
If MyDate + Abu_Ahmed < Date Then
MsgBox "  "
Application.Quit
End If
    ActiveWorkbook.Protect 123, Structure:=True, Windows:=True
End Sub